inherited fmMoscowKids: TfmMoscowKids
  Left = 548
  Top = 265
  Width = 850
  Height = 600
  Caption = 'fmMoscowKids'
  Constraints.MinHeight = 600
  Constraints.MinWidth = 850
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 546
    Width = 842
  end
  inherited Panel1: TPanel
    Top = 501
    Width = 842
    Align = alBottom
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 539
    end
    inherited BitBtn2: TBitBtn
      Left = 627
      Visible = False
    end
  end
  object pcMain: TPageControl [2]
    Left = 0
    Top = 0
    Width = 842
    Height = 501
    ActivePage = tsView
    Align = alClient
    TabOrder = 2
    object tsView: TTabSheet
      Caption = #1057#1087#1080#1089#1082#1080
      object dxbrdckcntrl1: TdxBarDockControl
        Left = 0
        Top = 0
        Width = 834
        Height = 48
        Align = dalTop
        BarManager = bmgrMenu
      end
      object pRight: TPanel
        Left = 493
        Top = 48
        Width = 341
        Height = 425
        Align = alRight
        BevelOuter = bvNone
        Caption = 'PDF'
        TabOrder = 2
        Visible = False
        object pdfDoc: TPdfViewer
          Left = 0
          Top = 0
          Width = 341
          Height = 425
          Align = alClient
          About = 'Synactis PDF Viewer version 1.0'
          AutoOpen = True
          Copies = 1
          EndPage = 0
          FitMode = vmFit
          LayoutMode = lmDontCare
          PageMode = pmStandard
          ShowPrintDialog = True
          ShowScrollBars = True
          ShowToolBar = True
          ShrinkToMargins = True
          StartPage = 1
        end
      end
      object pCenter: TPanel
        Left = 0
        Top = 48
        Width = 488
        Height = 425
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object gKids: TcxGrid
          Left = 0
          Top = 0
          Width = 488
          Height = 217
          Align = alClient
          BorderWidth = 6
          TabOrder = 0
          object vKids: TcxGridTableView
            NavigatorButtons.ConfirmDelete = False
            FilterBox.Visible = fvNever
            OnCellClick = vKidsCellClick
            OnCustomDrawCell = vKidsCustomDrawCell
            OnFocusedRecordChanged = vKidsFocusedRecordChanged
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Kind = skCount
                Column = cF
                VisibleForCustomization = False
              end>
            DataController.Summary.SummaryGroups = <>
            DataController.OnRecordChanged = vKidsDataControllerRecordChanged
            OptionsBehavior.CellHints = True
            OptionsBehavior.IncSearch = True
            OptionsCustomize.ColumnFiltering = False
            OptionsCustomize.ColumnGrouping = False
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Inserting = False
            OptionsSelection.HideFocusRectOnExit = False
            OptionsSelection.UnselectFocusedRecordOnExit = False
            OptionsView.ColumnAutoWidth = True
            OptionsView.Footer = True
            OptionsView.FooterAutoHeight = True
            OptionsView.GroupByBox = False
            Styles.Content = DMInv.cxData
            Styles.IncSearch = DMInv.cxKrasniyText
            Styles.Selection = DMInv.cxJoltiyFon
            Styles.Header = DMInv.cxSiniyText
            object cRecNo: TcxGridColumn
              Caption = #8470' '#1087'.'#1087'.'
              DataBinding.ValueType = 'Integer'
              Options.Editing = False
              Width = 30
            end
            object cPID: TcxGridDBColumn
              Caption = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
              DataBinding.ValueType = 'Integer'
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cSDIDList: TcxGridDBColumn
              Caption = #1043#1088#1091#1087#1087#1099
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cLIDList: TcxGridColumn
              Caption = #1042' '#1089#1087#1080#1089#1082#1072#1093
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cF: TcxGridDBColumn
              Caption = #1060#1072#1084#1080#1083#1080#1103
              Options.Editing = False
            end
            object cI: TcxGridDBColumn
              Caption = #1048#1084#1103
              Options.Editing = False
            end
            object cO: TcxGridDBColumn
              Caption = #1054#1090#1095#1077#1089#1090#1074#1086
              Options.Editing = False
            end
            object cBirthDate: TcxGridDBColumn
              Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
              DataBinding.ValueType = 'DateTime'
              Options.Editing = False
            end
            object cCurrentPodrazd: TcxGridColumn
              Caption = #1058#1077#1082#1091#1097#1077#1077' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
              Options.Editing = False
              Width = 60
            end
            object cPodrazdDate: TcxGridColumn
              Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077' '#1085#1072' '#1076#1072#1090#1091
              Options.Editing = False
            end
            object cPodrazdIDDate: TcxGridColumn
              DataBinding.ValueType = 'Integer'
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cFacAddress: TcxGridColumn
              Caption = #1040#1076#1088#1077#1089' '#1092#1072#1082#1090#1080#1095#1077#1089#1082#1086#1075#1086' '#1084#1077#1089#1090#1072' '#1087#1088#1086#1078#1080#1074#1072#1085#1080#1103
              Options.Editing = False
            end
            object cRegConst: TcxGridColumn
              Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1087#1086#1089#1090#1086#1103#1085#1085#1072#1103
              Options.Editing = False
            end
            object cRegTemp: TcxGridColumn
              Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103' '#1074#1088#1077#1084#1077#1085#1085#1072#1103
              Options.Editing = False
            end
            object cScLevel: TcxGridColumn
              Visible = False
              Options.Editing = False
            end
            object cDocBirth: TcxGridColumn
              Caption = #1057#1074#1080#1076'.'#1086' '#1088#1086#1078#1076#1077#1085#1080#1080
              DataBinding.ValueType = 'Boolean'
              Options.Editing = False
            end
            object cHasIn: TcxGridColumn
              Caption = #1055#1088#1080#1085#1103#1090
              DataBinding.ValueType = 'Boolean'
              Options.Editing = False
              Width = 40
            end
            object cHasMove: TcxGridColumn
              Caption = #1055#1077#1088#1077#1074#1077#1076#1077#1085
              DataBinding.ValueType = 'Boolean'
              Options.Editing = False
              Width = 40
            end
            object cHasOut: TcxGridColumn
              Caption = #1042#1099#1073#1099#1083
              DataBinding.ValueType = 'Boolean'
              Options.Editing = False
              Width = 40
            end
            object cStatus: TcxGridColumn
              Caption = #1052#1086#1089#1082#1074#1080#1095
              DataBinding.ValueType = 'Boolean'
              Options.Editing = False
              SortIndex = 0
              SortOrder = soAscending
              Width = 30
            end
            object cConfirmedStatus: TcxGridColumn
              Caption = #1055#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1085#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090
              PropertiesClassName = 'TcxComboBoxProperties'
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
            end
            object cKidsDesc: TcxGridColumn
              Caption = #1044#1086#1082#1091#1084#1077#1085#1090#1099' '#1086' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1080
              Options.Editing = False
            end
            object cCommentary: TcxGridColumn
              Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            end
            object cCommentaryConfirmed: TcxGridColumn
              Caption = #1055#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1085#1099#1081' '#1082#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            end
            object cInLists: TcxGridColumn
              Caption = #1042' '#1089#1087#1080#1089#1082#1072#1093
              DataBinding.ValueType = 'Boolean'
              Visible = False
              VisibleForCustomization = False
            end
          end
          object glGrid1Level1: TcxGridLevel
            GridView = vKids
          end
        end
        object spltrBot: TcxSplitter
          Left = 0
          Top = 217
          Width = 488
          Height = 8
          Cursor = crVSplit
          AlignSplitter = salBottom
          Control = bBotClient
          Color = clBtnShadow
          ParentColor = False
        end
        object bBotClient: TPanel
          Left = 0
          Top = 225
          Width = 488
          Height = 200
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 2
          object bBotRight: TPanel
            Left = 246
            Top = 27
            Width = 242
            Height = 173
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object gMove: TcxGrid
              Left = 6
              Top = 0
              Width = 236
              Height = 173
              Align = alClient
              BorderWidth = 6
              TabOrder = 0
              object vMove: TcxGridTableView
                NavigatorButtons.ConfirmDelete = False
                FilterBox.Visible = fvNever
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                DataController.OnRecordChanged = vDocsDataControllerRecordChanged
                OptionsCustomize.ColumnFiltering = False
                OptionsCustomize.ColumnGrouping = False
                OptionsSelection.HideFocusRectOnExit = False
                OptionsSelection.HideSelection = True
                OptionsSelection.UnselectFocusedRecordOnExit = False
                OptionsView.ColumnAutoWidth = True
                OptionsView.GroupByBox = False
                Styles.Content = DMInv.cxData
                Styles.IncSearch = DMInv.cxKrasniyText
                Styles.Selection = DMInv.cxJoltiyFon
                Styles.Header = DMInv.cxSiniyText
                object cMID: TcxGridColumn
                  Caption = #1053#1086#1084#1077#1088' '#1087#1088#1080#1082#1072#1079#1072
                  DataBinding.ValueType = 'Integer'
                  Options.Editing = False
                  Width = 45
                end
                object cMTYPE: TcxGridColumn
                  Caption = #1058#1080#1087' '#1087#1088#1080#1082#1072#1079#1072
                  Options.Editing = False
                  Width = 50
                end
                object cMDATE: TcxGridColumn
                  Caption = #1044#1072#1090#1072' '#1087#1088#1080#1082#1072#1079#1072
                  DataBinding.ValueType = 'DateTime'
                  Options.Editing = False
                  Width = 45
                end
                object cMCOMMENT: TcxGridColumn
                  Caption = #1054#1087#1080#1089#1072#1085#1080#1077
                  Options.Editing = False
                  Width = 80
                end
              end
              object cxGridLevel1: TcxGridLevel
                GridView = vMove
              end
            end
            object spltrDiv: TcxSplitter
              Left = 0
              Top = 0
              Width = 6
              Height = 173
              Cursor = crHSplit
              Control = pnlBotClient
              Color = clBtnShadow
              ParentColor = False
            end
          end
          object pBot: TPanel
            Left = 0
            Top = 0
            Width = 488
            Height = 27
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object cbShowPDF: TcxCheckBox
              Left = 384
              Top = 6
              Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100' PDF'
              Properties.OnEditValueChanged = cbShowPDFPropertiesEditValueChanged
              TabOrder = 0
              Width = 115
            end
            object cbShowRegistrationOnly: TcxCheckBox
              Left = 8
              Top = 6
              Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100' '#1090#1086#1083#1100#1082#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1099', '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1072#1102#1097#1080#1077' '#1088#1077#1075#1080#1089#1090#1088#1072#1094#1080#1102
              Properties.OnEditValueChanged = cbShowRegistrationOnlyPropertiesEditValueChanged
              TabOrder = 1
              Width = 377
            end
          end
          object pnlBotClient: TPanel
            Left = 0
            Top = 27
            Width = 246
            Height = 173
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 2
            object gDocs: TcxGrid
              Left = 0
              Top = 0
              Width = 246
              Height = 173
              Align = alClient
              BorderWidth = 6
              TabOrder = 0
              object vDocs: TcxGridTableView
                NavigatorButtons.ConfirmDelete = False
                FilterBox.Visible = fvNever
                OnCustomDrawCell = vDocsCustomDrawCell
                OnFocusedRecordChanged = vDocsFocusedRecordChanged
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                DataController.OnRecordChanged = vDocsDataControllerRecordChanged
                OptionsCustomize.ColumnFiltering = False
                OptionsCustomize.ColumnGrouping = False
                OptionsSelection.HideFocusRectOnExit = False
                OptionsSelection.HideSelection = True
                OptionsSelection.UnselectFocusedRecordOnExit = False
                OptionsView.ColumnAutoWidth = True
                OptionsView.GroupByBox = False
                Styles.Content = DMInv.cxData
                Styles.IncSearch = DMInv.cxKrasniyText
                Styles.Selection = DMInv.cxJoltiyFon
                Styles.Header = DMInv.cxSiniyText
                object cDID: TcxGridColumn
                  Caption = #1048#1076'. '#1044#1086#1082#1091#1084#1077#1085#1090#1072
                  DataBinding.ValueType = 'Integer'
                  Visible = False
                  Options.Editing = False
                end
                object cDPID: TcxGridColumn
                  Caption = #1048#1076'.'#1063#1077#1083#1086#1074#1077#1082#1072
                  DataBinding.ValueType = 'Integer'
                  Visible = False
                  Options.Editing = False
                end
                object cDOWNER: TcxGridColumn
                  Caption = #1063#1077#1081' '#1076#1086#1082#1091#1084#1077#1085#1090
                  Options.Editing = False
                end
                object cDTYPE: TcxGridColumn
                  Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072' (ID)'
                  DataBinding.ValueType = 'Integer'
                  Visible = False
                  Options.Editing = False
                end
                object cDTYPESTR: TcxGridColumn
                  Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
                  Options.Editing = False
                end
                object cDSERIA: TcxGridColumn
                  Caption = #1057#1077#1088#1080#1103
                  Options.Editing = False
                end
                object cDNUMBER: TcxGridColumn
                  Caption = #1053#1086#1084#1077#1088
                  Options.Editing = False
                end
                object cDDATE: TcxGridColumn
                  Caption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
                  DataBinding.ValueType = 'DateTime'
                  Options.Editing = False
                end
                object cDBLOB: TcxGridColumn
                  Caption = #1044#1086#1082#1091#1084#1077#1085#1090
                  DataBinding.ValueType = 'Variant'
                  OnGetDisplayText = cDBLOBGetDisplayText
                  Options.Editing = False
                  Width = 30
                end
                object cDSTATUS: TcxGridColumn
                  Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
                  DataBinding.ValueType = 'Boolean'
                  Width = 30
                end
              end
              object glGrid1Level11: TcxGridLevel
                GridView = vDocs
              end
            end
          end
        end
      end
      object spltrPDF: TcxSplitter
        Left = 488
        Top = 48
        Width = 5
        Height = 425
        Cursor = crHSplit
        AlignSplitter = salRight
        Control = pRight
        Color = clBtnShadow
        ParentColor = False
      end
    end
    object tsEdit: TTabSheet
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1089#1087#1080#1089#1082#1086#1074
      ImageIndex = 1
      object pLeft: TPanel
        Left = 0
        Top = 0
        Width = 449
        Height = 473
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'pLeft'
        TabOrder = 0
        object gLeft: TcxGrid
          Left = 0
          Top = 25
          Width = 449
          Height = 448
          Align = alClient
          BorderWidth = 6
          TabOrder = 0
          object vLeft: TcxGridTableView
            NavigatorButtons.ConfirmDelete = False
            FilterBox.Visible = fvNever
            OnCellDblClick = vLeftCellDblClick
            OnCustomDrawCell = vLeftCustomDrawCell
            OnFocusedRecordChanged = vLeftFocusedRecordChanged
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Kind = skCount
                Column = cLF
                VisibleForCustomization = False
              end>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.CellHints = True
            OptionsBehavior.IncSearch = True
            OptionsCustomize.ColumnFiltering = False
            OptionsCustomize.ColumnGrouping = False
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Editing = False
            OptionsData.Inserting = False
            OptionsSelection.HideFocusRectOnExit = False
            OptionsSelection.MultiSelect = True
            OptionsSelection.UnselectFocusedRecordOnExit = False
            OptionsView.ColumnAutoWidth = True
            OptionsView.Footer = True
            OptionsView.FooterAutoHeight = True
            OptionsView.GroupByBox = False
            Styles.Content = DMInv.cxData
            Styles.IncSearch = DMInv.cxKrasniyText
            Styles.Selection = DMInv.cxJoltiyFon
            Styles.Header = DMInv.cxSiniyText
            object cLPID: TcxGridDBColumn
              Caption = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
              DataBinding.ValueType = 'Integer'
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cLF: TcxGridDBColumn
              Caption = #1060#1072#1084#1080#1083#1080#1103
              Options.Editing = False
              SortIndex = 0
              SortOrder = soAscending
            end
            object cLI: TcxGridDBColumn
              Caption = #1048#1084#1103
              Options.Editing = False
              SortIndex = 1
              SortOrder = soAscending
            end
            object cLO: TcxGridDBColumn
              Caption = #1054#1090#1095#1077#1089#1090#1074#1086
              Options.Editing = False
              SortIndex = 2
              SortOrder = soAscending
            end
            object cLDate: TcxGridDBColumn
              Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
              DataBinding.ValueType = 'DateTime'
              Options.Editing = False
            end
            object cLClass: TcxGridColumn
              Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077' '#1085#1072' '#1076#1072#1090#1091
              Options.Editing = False
              Width = 60
            end
            object cLClassID: TcxGridColumn
              DataBinding.ValueType = 'Integer'
              Visible = False
              VisibleForCustomization = False
            end
            object cLSCLevelOnDate: TcxGridColumn
              DataBinding.ValueType = 'Smallint'
              Visible = False
              VisibleForCustomization = False
            end
            object cLMoscow: TcxGridColumn
              Caption = #1052#1086#1089#1082#1074#1080#1095
              DataBinding.ValueType = 'Boolean'
              Width = 40
            end
          end
          object cxGridLevel2: TcxGridLevel
            GridView = vLeft
          end
        end
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 449
          Height = 25
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object cbOldYears: TcxComboBox
            Left = 3
            Top = 3
            Properties.DropDownListStyle = lsFixedList
            Properties.Items.Strings = (
              '<'#1074#1089#1077'>'
              #1086#1090' 1.5 '#1076#1086' 3 '#1083#1077#1090
              #1086#1090' 3 '#1076#1086' 5'
              #1086#1090' 5 '#1076#1086' 7'
              #1053#1072#1095#1072#1083#1100#1085#1072#1103' '#1096#1082#1086#1083#1072
              #1057#1088#1077#1076#1085#1103#1103' '#1096#1082#1086#1083#1072)
            Properties.OnEditValueChanged = cbOldYearsPropertiesEditValueChanged
            TabOrder = 0
            Text = '<'#1074#1089#1077'>'
            Width = 121
          end
          object cxButton1: TcxButton
            Left = 384
            Top = 3
            Width = 57
            Height = 21
            Caption = #1048#1089#1082#1072#1090#1100
            TabOrder = 1
            OnClick = cxButton1Click
          end
          object deOnDate: TcxDateEdit
            Left = 128
            Top = 3
            Properties.SaveTime = False
            Properties.ShowTime = False
            Properties.OnEditValueChanged = deOnDatePropertiesEditValueChanged
            TabOrder = 2
            Width = 121
          end
          object ccbMoscow: TcxCheckComboBox
            Left = 253
            Top = 3
            Properties.EmptySelectionText = '<'#1074#1089#1077'>'
            Properties.Items = <
              item
                Description = #1052#1086#1089#1082#1074#1080#1095#1080
                ShortDescription = #1052#1089#1082
              end
              item
                Description = #1053#1077' '#1084#1086#1089#1082#1074#1080#1095#1080
                ShortDescription = #1053#1077#1052#1089#1082
              end
              item
                Description = #1053#1077' '#1086#1087#1088#1077#1076#1077#1083#1077#1085#1086
                ShortDescription = #1053#1077#1054#1087#1088
              end>
            Properties.OnEditValueChanged = ccbMoscowPropertiesEditValueChanged
            EditValue = 7
            TabOrder = 3
            Width = 124
          end
        end
      end
      object pButtons: TPanel
        Left = 449
        Top = 0
        Width = 50
        Height = 473
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = pButtonsResize
        object bAdd: TcxButton
          Left = 5
          Top = 206
          Width = 40
          Height = 41
          Hint = #1044#1086#1073#1072#1074#1080#1090#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = bAddClick
          Colors.Default = clGreen
          Glyph.Data = {
            56020000424D560200000000000076000000280000001E0000001E0000000100
            040000000000E001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            00000000000000000000077777777777777777777777777770000F7777777777
            777777777777777770000F8888888888888888888888888770000F8888888888
            888888888888888770000F88888888888888888888888887700A0F8888888888
            8888888888888887702C0F88888888888888888888888887704C0F8888888888
            888888888888888770900F88888888FF888888888888888770A80F8888888878
            FF8888888888888770150F888888887008FF88888888888770420F8888888870
            0008FF888888888770260F8888888870000008FF8888888770000F8888888870
            00000008FF88888770070F8888888870000000000778888770880F8888888870
            000000077888888770000F8888888870000007788888888770000F8888888870
            000778888888888770000F8888888870077888888888888770000F8888888877
            788888888888888770020F8888888878888888888888888770040F8888888888
            888888888888888770090F8888888888888888888888888770020F8888888888
            888888888888888770040F8888888888888888888888888770090F8888888888
            888888888888888770020F8888888888888888888888888770040FFFFFFFFFFF
            FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
          LookAndFeel.Kind = lfFlat
          LookAndFeel.SkinName = ''
        end
        object bExtend: TcxButton
          Left = 5
          Top = 153
          Width = 38
          Height = 38
          Hint = #1057#1086#1079#1076#1072#1090#1100' '#1089#1087#1080#1089#1086#1082
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = bExtendClick
          Colors.Default = clGreen
          Glyph.Data = {
            56020000424D560200000000000076000000280000001E0000001E0000000100
            040000000000E001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            00000000000000000000077777777777777777777777777770000F7777777777
            777777777777777770000F8888888888888888888888888770000F8888888888
            888888888888888770000F88888888888888888888888887700A0F8888888888
            8888888888888887702C0F88888888888888888888888887704C0F8888888888
            888888888888888770900F8888888888888888888888888770A80F887F888888
            887F88888888888770150F8878FF88888878FF888888888770420F887008FF88
            887008FF8888888770A60F88700008FF88700008FF88888770000F8870000008
            FF70000008FF888770270F8870000000077000000007788770CA0F8870000007
            787000000778888770A60F8870000778887000077888888770000F8870077888
            887007788888888770250F8877788888887778888888888770CA0F8878888888
            887888888888888770A60F8888888888888888888888888770000F8888888888
            888888888888888770250F8888888888888888888888888770CA0F8888888888
            888888888888888770A60F8888888888888888888888888770000F8888888888
            888888888888888770250F8888888888888888888888888770CA0FFFFFFFFFFF
            FFFFFFFFFFFFFFFF702600000000000000000000000000000000}
          LookAndFeel.Kind = lfFlat
          LookAndFeel.SkinName = ''
        end
        object bDelete: TcxButton
          Left = 5
          Top = 254
          Width = 39
          Height = 37
          Hint = #1059#1076#1072#1083#1080#1090#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnClick = bDeleteClick
          Colors.Default = clRed
          Glyph.Data = {
            56020000424D560200000000000076000000280000001E0000001E0000000100
            040000000000E001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            00000000000000000000077777777777777777777777777770000F7777777777
            777777777777777770000F8888888888888888888888888770000F8888888888
            888888888888888770000F88888888888888888888888887700A0F8888888888
            8888888888888887702C0F88888888888888888888888887704C0F8888888888
            888888888888888770900F8888888888888888FF8888888770A80F8888888888
            8888FF8F8888888770150F888888888888FF800F8888888770420F8888888888
            FF80000F8888888770A60F88888888FF8000000F8888888770000F888888FF80
            0000000F8888888770250F88888770000000000F8888888770CA0F8888888770
            0000000F8888888770260F88888888877000000F8888888770000F8888888888
            8770000F8888888770070F88888888888887700F8888888770880F8888888888
            8888877F8888888770000F88888888888888888F8888888770000F8888888888
            888888888888888770000F8888888888888888888888888770000F8888888888
            888888888888888770560F8888888888888888888888888770DD0F8888888888
            888888888888888770000F8888888888888888888888888770000FFFFFFFFFFF
            FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
          LookAndFeel.Kind = lfFlat
          LookAndFeel.SkinName = ''
        end
      end
      object pClient: TPanel
        Left = 499
        Top = 0
        Width = 335
        Height = 473
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 2
        object gRight: TcxGrid
          Left = 0
          Top = 26
          Width = 335
          Height = 415
          Align = alClient
          BorderWidth = 6
          TabOrder = 0
          object vRight: TcxGridTableView
            NavigatorButtons.ConfirmDelete = False
            FilterBox.Visible = fvNever
            OnCellDblClick = vRightCellDblClick
            OnCustomDrawCell = vRightCustomDrawCell
            OnFocusedRecordChanged = vRightFocusedRecordChanged
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Kind = skCount
                Column = cxGridDBColumn2
                VisibleForCustomization = False
              end>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.CellHints = True
            OptionsBehavior.IncSearch = True
            OptionsCustomize.ColumnFiltering = False
            OptionsCustomize.ColumnGrouping = False
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Editing = False
            OptionsData.Inserting = False
            OptionsSelection.HideFocusRectOnExit = False
            OptionsSelection.MultiSelect = True
            OptionsSelection.UnselectFocusedRecordOnExit = False
            OptionsView.ColumnAutoWidth = True
            OptionsView.Footer = True
            OptionsView.FooterAutoHeight = True
            OptionsView.GroupByBox = False
            Styles.Content = DMInv.cxData
            Styles.IncSearch = DMInv.cxKrasniyText
            Styles.Selection = DMInv.cxJoltiyFon
            Styles.Header = DMInv.cxSiniyText
            object cRPID: TcxGridDBColumn
              Caption = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
              DataBinding.ValueType = 'Integer'
              Visible = False
              Options.Editing = False
              VisibleForCustomization = False
            end
            object cxGridDBColumn2: TcxGridDBColumn
              Caption = #1060#1072#1084#1080#1083#1080#1103
              Options.Editing = False
              SortIndex = 0
              SortOrder = soAscending
            end
            object cxGridDBColumn3: TcxGridDBColumn
              Caption = #1048#1084#1103
              Options.Editing = False
              SortIndex = 1
              SortOrder = soAscending
            end
            object cxGridDBColumn4: TcxGridDBColumn
              Caption = #1054#1090#1095#1077#1089#1090#1074#1086
              Options.Editing = False
              SortIndex = 2
              SortOrder = soAscending
            end
            object cxGridDBColumn5: TcxGridDBColumn
              Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
              DataBinding.ValueType = 'DateTime'
              Options.Editing = False
            end
            object cxGridColumn1: TcxGridColumn
              Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077' '#1085#1072' '#1076#1072#1090#1091
              Options.Editing = False
              Width = 60
            end
          end
          object cxGridLevel3: TcxGridLevel
            GridView = vRight
          end
        end
        object bcRight: TdxBarDockControl
          Left = 0
          Top = 0
          Width = 335
          Height = 26
          Align = dalTop
          BarManager = bmgrMenu
        end
        object pEBot: TPanel
          Left = 0
          Top = 441
          Width = 335
          Height = 32
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 2
          object bSave: TcxButton
            Left = 6
            Top = 0
            Width = 145
            Height = 25
            Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
            TabOrder = 0
            Visible = False
            OnClick = bSaveClick
          end
        end
      end
    end
  end
  inherited dlgDS: TDataSource
    Left = 248
    Top = 112
  end
  object qKids: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select * from GET_CHILD_LIST')
    Left = 272
    Top = 256
    qoStartTransaction = True
  end
  object qDocs: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select d.* from GET_CHILD_DOCUMENTS(:I$PID) d')
    Left = 312
    Top = 256
    qoStartTransaction = True
  end
  object qDocsUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    Left = 368
    Top = 257
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qListsUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    Left = 368
    Top = 201
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qKidsComment: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'UPDATE OR INSERT'
      'INTO P_MISC_PROP(PID,PCUSTOM_COMMENT)'
      'VALUES (:PID,:COMMENT)')
    Left = 432
    Top = 90
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qShareDoc: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select'
      '  d.pid_poluch,'
      
        '  (SELECT COALESCE(O$STATUS,0) FROM GET_CHILD_STATUS(d.pid_poluc' +
        'h))'
      'from DOV_LITSA d'
      'join P_DOCUMENTS c on c.pid = d.pid'
      'where c.did = :DID')
    Left = 288
    Top = 202
    qoStartTransaction = True
  end
  object SD1: TSaveDialog
    InitialDir = 'c:\'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 1112
    Top = 216
  end
  object bmgrMenu: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    CanCustomize = False
    Categories.Strings = (
      #1055#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102)
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    NotDocking = [dsNone]
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 320
    Top = 106
    DockControlHeights = (
      0
      0
      0
      0)
    object dxbrMenuBar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' 1'
      CaptionButtons = <>
      DockControl = dxbrdckcntrl1
      DockedDockControl = dxbrdckcntrl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 498
      FloatTop = 265
      FloatClientWidth = 0
      FloatClientHeight = 0
      IsMainMenu = True
      ItemLinks = <
        item
          UserDefine = [udWidth]
          UserWidth = 26
          Visible = True
          ItemName = 'cbAltFilter'
        end
        item
          UserDefine = [udWidth]
          UserWidth = 84
          Visible = True
          ItemName = 'deLOnDate'
        end
        item
          UserDefine = [udWidth]
          UserWidth = 237
          Visible = True
          ItemName = 'beClass'
        end
        item
          Visible = True
          ItemName = 'cbStatus'
        end
        item
          UserDefine = [udWidth]
          UserWidth = 318
          Visible = True
          ItemName = 'eFilterLists'
        end
        item
          Visible = True
          ItemName = 'bLSearch'
        end
        item
          Visible = True
          ItemName = 'bRefresh'
        end
        item
          Visible = True
          ItemName = 'btnExportXL'
        end
        item
          Visible = True
          ItemName = 'btnFields'
        end>
      MultiLine = True
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      Visible = True
      WholeRow = True
    end
    object bmgrMenuBar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' 2'
      CaptionButtons = <>
      DockControl = bcRight
      DockedDockControl = bcRight
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 498
      FloatTop = 265
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          UserDefine = [udWidth]
          UserWidth = 317
          Visible = True
          ItemName = 'eEFilterList'
        end
        item
          Visible = True
          ItemName = 'bFix'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      Visible = True
      WholeRow = True
    end
    object eFilterLists: TcxBarEditItem
      Caption = #1057#1087#1080#1089#1082#1080
      Category = 0
      Hint = #1057#1087#1080#1089#1082#1080
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end
        item
          Caption = #1054#1095#1080#1089#1090#1080#1090#1100
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888888888888888888808888888888088800088888888888880000888888
            8088888000888888088888880008888008888888800088008888888888000008
            8888888888800088888888888800000888888888800088008888888000088880
            0888880000888888008888000888888888088888888888888888}
          Kind = bkGlyph
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eFilterListsPropertiesButtonClick
      InternalEditValue = '<'#1074#1089#1077' '#1089#1087#1080#1089#1082#1080'>'
    end
    object cbStatus: TdxBarCombo
      Caption = #1057#1090#1072#1090#1091#1089
      Category = 0
      Hint = #1057#1090#1072#1090#1091#1089
      Visible = ivAlways
      OnChange = cbStatusChange
      Width = 100
      Text = '<'#1074#1089#1077'>'
      ShowEditor = False
      Items.Strings = (
        '<'#1074#1089#1077'>'
        #1052#1086#1089#1082#1074#1080#1095#1080
        #1053#1077' '#1084#1086#1089#1082#1074#1080#1095#1080
        #1053#1077#1086#1087#1086#1079#1085#1072#1085#1085#1099#1077)
      ItemIndex = 0
    end
    object btnExportXL: TdxBarButton
      Caption = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Category = 0
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Visible = ivAlways
      ImageIndex = 48
      OnClick = btnExportXLClick
    end
    object bRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivNever
      ImageIndex = 63
      OnClick = bRefreshClick
    end
    object btnFields: TdxBarButton
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1089#1090#1086#1083#1073#1094#1086#1074
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1089#1090#1086#1083#1073#1094#1086#1074
      Visible = ivAlways
      ImageIndex = 17
      OnClick = btnFieldsClick
    end
    object btnClear: TdxBarButton
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1092#1080#1083#1100#1090#1088#1099
      Category = 0
      Hint = #1054#1095#1080#1089#1090#1080#1090#1100' '#1092#1080#1083#1100#1090#1088#1099
      Visible = ivAlways
      ImageIndex = 10
    end
    object dxBarButton1: TdxBarButton
      Caption = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Category = 0
      Hint = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Visible = ivAlways
    end
    object cxBarEditItem1: TcxBarEditItem
      Caption = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Category = 0
      Hint = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
    end
    object eEFilterList: TcxBarEditItem
      Caption = #1057#1087#1080#1089#1082#1080
      Category = 0
      Hint = #1057#1087#1080#1089#1082#1080
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end
        item
          Caption = #1054#1095#1080#1089#1090#1080#1090#1100
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888888888888888888808888888888088800088888888888880000888888
            8088888000888888088888880008888008888888800088008888888888000008
            8888888888800088888888888800000888888888800088008888888000088880
            0888880000888888008888000888888888088888888888888888}
          Kind = bkGlyph
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = False
      Properties.OnButtonClick = eEFilterListPropertiesButtonClick
      InternalEditValue = '<'#1089#1087#1080#1089#1086#1082' '#1085#1077' '#1074#1099#1073#1088#1072#1085'>'
    end
    object cbClass: TdxBarCombo
      Caption = '<'#1074#1089#1077' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103'>'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103
      Visible = ivAlways
      OnChange = cbClassChange
      Width = 100
      Text = '<'#1074#1089#1077' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103'>'
      ShowEditor = False
      ItemIndex = -1
    end
    object TdxBarEdit
      Caption = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Category = 0
      Hint = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Visible = ivAlways
      Width = 100
    end
    object beClass: TcxBarEditItem
      Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103
      Category = 0
      Hint = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103
      Visible = ivNever
      Width = 100
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888888888888888888808888888888088800088888888888880000888888
            8088888000888888088888880008888008888888800088008888888888000008
            8888888888800088888888888800000888888888800088008888888000088880
            0888880000888888008888000888888888088888888888888888}
          Kind = bkGlyph
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = False
      Properties.OnButtonClick = beClassPropertiesButtonClick
      InternalEditValue = #1054#1073#1088#1072#1079#1086#1074#1072#1090#1077#1083#1100#1085#1086#1077' '#1091#1095#1088#1077#1078#1076#1077#1085#1080#1077
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Category = 0
      Hint = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxComboBoxProperties'
    end
    object dxBarButton2: TdxBarButton
      Caption = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Category = 0
      Hint = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Visible = ivAlways
    end
    object dxBarStatic1: TdxBarStatic
      Category = 0
      Visible = ivAlways
      Width = 400
    end
    object bList: TdxBarButton
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1089#1087#1080#1089#1086#1082
      Category = 0
      Enabled = False
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1089#1087#1080#1089#1086#1082
      Visible = ivAlways
    end
    object bFix: TdxBarButton
      Caption = #1059#1090#1074#1077#1088#1076#1080#1090#1100
      Category = 0
      Hint = #1059#1090#1074#1077#1088#1076#1080#1090#1100
      Visible = ivNever
      ButtonStyle = bsChecked
      ImageIndex = 59
      PaintStyle = psCaptionGlyph
      OnClick = bFixClick
    end
    object dxBarButton3: TdxBarButton
      Caption = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Category = 0
      Hint = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Visible = ivAlways
    end
    object dxBarStatic2: TdxBarStatic
      Caption = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Category = 0
      Hint = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Visible = ivAlways
      Width = 250
    end
    object btn1: TdxBarButton
      Caption = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Category = 0
      Hint = #1053#1086#1074#1072#1103' '#1082#1085#1086#1087#1082#1072
      Visible = ivAlways
    end
    object cbAltFilter: TcxBarEditItem
      Caption = #1060#1080#1083#1100#1090#1088' '#1085#1072' '#1076#1072#1090#1091' '#1087#1086' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1102
      Category = 0
      Hint = #1060#1080#1083#1100#1090#1088' '#1085#1072' '#1076#1072#1090#1091' '#1087#1086' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1102
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.ImmediatePost = True
      Properties.OnEditValueChanged = cbAltFilterPropertiesEditValueChanged
      InternalEditValue = False
    end
    object deLOnDate: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091
      Category = 0
      Hint = #1053#1072' '#1076#1072#1090#1091
      Visible = ivNever
      Width = 100
      PropertiesClassName = 'TcxDateEditProperties'
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.OnEditValueChanged = deLOnDatePropertiesEditValueChanged
      InternalEditValue = 41431d
    end
    object beClassZ: TdxBarEdit
      Caption = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Category = 0
      Hint = #1053#1086#1074#1099#1081' '#1101#1083#1077#1084#1077#1085#1090
      Visible = ivAlways
      Width = 100
    end
    object bLSearch: TdxBarButton
      Caption = #1048#1089#1082#1072#1090#1100
      Category = 0
      Hint = #1048#1089#1082#1072#1090#1100
      Visible = ivAlways
      OnClick = bLSearchClick
    end
  end
  object qMove: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select *'
      'from GET_CHILD_MOVEMENT(:I$PID)'
      'where MVIRTUAL in (1,2)')
    Left = 304
    Top = 320
    qoStartTransaction = True
  end
  object qLoadFilter: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'SELECT TF.TFNAME, TF.TFSQLTEXT'
      'FROM TEMP_FILTER TF'
      'WHERE TF.USER_NAME = CURRENT_USER'
      '    AND TF.TFNUM = :TFNUM')
    Left = 224
    Top = 186
    qoStartTransaction = True
  end
  object qClearFilter: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'DELETE'
      'FROM TEMP_FILTER TF'
      'WHERE TF.USER_NAME = CURRENT_USER'
      '    AND TF.TFNUM = :TFNUM')
    Left = 168
    Top = 186
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qCheckL: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      
        'select count(*) from PEOPLE_LISTS where PID = :PID and LISTID = ' +
        ':LISTID')
    Left = 108
    Top = 400
    qoStartTransaction = True
  end
  object qClass: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'SELECT'
      '  distinct'
      '  sd.sdid,'
      '  SD.SDNAME,'
      
        '  (SELECT O$NESTING_LEVEL FROM GET_SD_NESTING_LEVEL(D.SDID,1411)' +
        '),'
      
        '  (SELECT O$NESTING_LEVEL FROM GET_SD_NESTING_LEVEL(D.SDID,1412)' +
        '),'
      
        '  (SELECT O$NESTING_LEVEL FROM GET_SD_NESTING_LEVEL(D.SDID,1413)' +
        '),'
      '  d.dptype'
      'FROM DETI_PODRAZD_SC D'
      'JOIN SPEC_COND SC ON SC.SCID = D.SCID'
      'JOIN AGR_POLUCH_USLUG PU ON PU.AGID = SC.AGID'
      'JOIN SYS_DIC SD ON SD.SDID = D.SDID'
      'join people p on d.dpid = p.pid'
      'WHERE CURRENT_DATE BETWEEN D.DPDATEIN AND D.DPDATEOUT'
      '  and p.pisdelete is null'
      '  and d.dptype = 1'
      'order by 6,5,4,3,sd.sdname')
    Left = 116
    Top = 256
    qoStartTransaction = True
  end
  object qInsertLists: TpFIBDataSet
    UpdateRecordTypes = [cusInserted, cusDeleted, cusUninserted, cusDeletedApplied]
    DeleteSQL.Strings = (
      'delete from PEOPLE_LISTS where PID = :PID and LISTID = :LISTID')
    InsertSQL.Strings = (
      'insert into PEOPLE_LISTS values (:PID,:LISTID)')
    SelectSQL.Strings = (
      'select PID,LISTID from PEOPLE_LISTS')
    AutoUpdateOptions.UpdateTableName = 'PEOPLE_LISTS'
    AutoUpdateOptions.AutoParamsToFields = True
    AutoCalcFields = False
    AllowedUpdateKinds = [ukInsert, ukDelete]
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    UpdateTransaction = DMInv.trFibWrite
    Left = 220
    Top = 384
    oRefreshAfterPost = False
    oAutoFormatFields = False
    oFetchAll = True
  end
  object qInsertL: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'insert into PEOPLE_LISTS values (:PID,:LISTID)')
    Left = 60
    Top = 376
    qoStartTransaction = True
  end
  object qDeleteL: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'delete from PEOPLE_LISTS where PID = :PID and LISTID = :LISTID')
    Left = 60
    Top = 424
    qoStartTransaction = True
  end
  object qGetClassOnDate: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      
        'select SCHOOL_LEVEL,PODRAZD,DP from GET_CHILD_SCLEVEL(:PID,:ONDA' +
        'TE)')
    Left = 372
    Top = 328
    qoStartTransaction = True
  end
  object TdxBarSeparator
    Category = -1
    Visible = ivAlways
  end
  object qCreateList: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      
        'select CID,LID,LNAME from CREATE_MOSCOW_LIST(:TLID,:LISTNAME,:LI' +
        'STDATE)')
    Left = 485
    Top = 392
    qoStartTransaction = True
  end
  object qSetFilter: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'INSERT INTO TEMP_FILTER '
      '(TFID, TFNUM, USER_NAME, TFNAME, TFSQLTEXT)'
      
        'VALUES ((SELECT GEN_ID(GEN_TEMP_FILTER_ID,1) FROM RDB$DATABASE),' +
        ' :TFNUM, CURRENT_USER, :FNAME, :FVALUE)')
    Left = 112
    Top = 178
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qCheckSD: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 453
    Top = 352
    qoStartTransaction = True
  end
  object qFixSD: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'execute procedure Fix_SD(:SDID)')
    Left = 200
    Top = 306
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qKidsCComment: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'UPDATE OR INSERT'
      'INTO P_MISC_PROP(PID,PCONFIRMED_COMMENT)'
      'VALUES (:PID,:COMMENT)')
    Left = 432
    Top = 138
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qKidsStatusConfirmed: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'UPDATE OR INSERT'
      'INTO P_MISC_PROP(PID,PCONFIRMED_STATUS)'
      'VALUES (:PID,:STATUS)')
    Left = 488
    Top = 114
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object qLoadCStatus: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select'
      '  sdid,'
      '  sdname'
      'from sys_dic'
      'where sdparid = 45 and sdisdelete = 0')
    Left = 505
    Top = 298
    qoStartTransaction = True
  end
  object cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clGradientActiveCaption
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      TextColor = clWindowText
    end
  end
end
